home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG16.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  512b  |  25 lines
  1. PROGRAM PROG16;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Real Numbers
  5.  
  6. }
  7. CONST
  8.   C  =  -2.0;
  9.  
  10. VAR
  11.   A, B  : Real;
  12.   I, J  : Integer;
  13.  
  14. BEGIN
  15.   ClrScr;
  16.   Write('Enter a decimal number: ');
  17.   ReadLn(A);
  18.   WriteLn('A       [', A,      ']');
  19.   WriteLn('A:10:2  [', A:10:2, ']');
  20.   WriteLn('A:10:1  [', A:10:1, ']');
  21.   WriteLn('A:10:0  [', A:10:0, ']');
  22.   WriteLn;
  23.   WriteLn('A:-10:2 [', A:-10:2, ']');
  24. END.
  25.